home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 December / 64er_Magazin_87-12_1987_Markt__Technik_de_Side_A.d64 / multifarben setz (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  230b  |  13 lines
  1. 60195 rem
  2. 60196 rem *** multi-farben setzen ***
  3. 60197 rem
  4. 60198 rem f0,f1,f2,f3 = farben 0 bis 3
  5. 60199 rem
  6. 60200 poke 53281,f0
  7. 60210 fw=f2*16+f1:rem hi/lo-nibble zusammenfassen
  8. 60220 for q=1024 to 2023
  9. 60230 poke q,fw:next q
  10. 60240 for q=55296 to 56295
  11. 60250 poke q,f3:next q
  12. 60260 return
  13.